P R O C E D U R E   A d d I t e m ( N e w T r e e I t e m ) 
 
 
 
 	 I F   R o o t   =   N o n e     T H E N 
 
 	 	 T h i s T r e e   !  N o d e ( N e w T r e e I t e m )       / / a p p e n d   n e w   N o d e   t o   T h i s T r e e     
 
 	 	 R o o t   !  N e x t F r e e 
 
 	 	 N e x t F r e e   !  N e x t F r e e   +   1   
 
 	 E L S E 
 
 	 	 / / t r a v e r s e   t h e   t r e e   t o   f i n d   t h e   p o s i t i o n   f o r   t h e   n e w   v a l u e 
 
 	 	 C u r r e n t   !  R o o t 
 
 	 	 L a s t M o v e   !   X  
 
 	 	 R E P E A T 
 
 	 	 	 P r e v i o u s   !  C u r r e n t 
 
 	 	 	 I F   N e w T r e e I t e m   <   T h i s T r e e [ C u r r e n t ] . D a t a     T H E N 
 
 	 	 	 	 / / m o v e   l e f t 
 
 	 	 	 	 L a s t M o v e   !   L  
 
 	 	 	 	 C u r r e n t   !  T h i s T r e e [ C u r r e n t ] . L e f t 
 
 	 	 	 E L S E 
 
 	 	 	 	 / /   m o v e   r i g h t 
 
 	 	 	 	 L a s t M o v e   !   R  
 
 	 	 	 	 C u r r e n t   !  T h i s T r e e [ C u r r e n t ] . R i g h t 
 
 	 	 	 E N D I F 
 
 	 	 U N T I L   C u r r e n t   =   N o n e 
 
 
 
 	 	 I F   L a s t M o v e   =    R      T H E N 
 
 	 	 	 T h i s T r e e [ P r e v i o u s ] . R i g h t   !  N e x t F r e e 
 
 	 	 E L S E 
 
 	 	 	 T h i s T r e e [ P r e v i o u s ] . L e f t   !  N e x t F r e e 
 
 	 	 E N D I F 
 
 
 
 	 	 T h i s T r e e   !  N o d e ( N e w T r e e I t e m )       / / a p p e n d   n e w   N o d e   t o   T h i s T r e e     
 
 	 	 N e x t F r e e   !  N e x t F r e e   +   1   
 
 	 E N D I F 
 
 
 
 E N D P R O C E D U R E 